home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / RBCOMM34.ZIP;1 / AVATOPUS.MAC < prev    next >
Encoding:
Text File  |  1993-01-03  |  1.8 KB  |  60 lines
  1. ; RBcomm macro file for Opus systems with OpXpress
  2. ;
  3. F2      MULTI                    ; from main bulletins screen
  4.     TEXT    "x\r"
  5.     WAITFOR 20 "ress"
  6.     TEXT    "  "
  7.     WAITFOR 15 "C, D"
  8.     PAUSE    4
  9.     PUSHKEY F3         ; now that we're at the OpX prompt, run rest
  10.     END
  11. F3    MULTI             ; from OpX prompt
  12.         CHDIR   "d:/opx"         ; make sure we're in the right directory
  13.     TEXT    "d\r"            ; tell OpX we want to download
  14.     WAITFOR 40 ">"           ; wait for action prompt
  15.     WAITFOR 3  ":"
  16.     PAUSE    4
  17.         TEXT    "a\r"            ; we want to download all messages
  18.     WAITFOR 30 "ountdown"    ; wait for transfer start prompt
  19.     PAUSE    3
  20.         TEXT    "\r"             ; yes, we want to start downloading
  21.     END
  22. F9    TEXT    "Your Name\r"
  23. F10    PUSHKEY Auto         ; F10 is same as automatic login
  24.  
  25. ; and now, our automatic logon routine
  26. AUTO    MULTI
  27.     TEXT    "\r"              ; get the BBS's attention
  28.     PAUSE    9
  29.     TEXT    "\r"
  30.     PAUSE    9
  31.     UNTIL    SUCCESS
  32.        {
  33.        TEXT    "\r"
  34.        WAITFOR 1 " "
  35.        }
  36.     WAITFOR 5 "ress"          ; when mailer asks to press Escape, do so
  37.     TEXT    "\e\e"
  38.     WAITFOR 20 "ame:"         ; wait for login prompt
  39.     TEXT    "Your Name;y\r"   ; and send name
  40.     WAITFOR 10 "ord:"         ; wait for password prompt
  41.     PASSWORD          ; send the password defined in the directory
  42.     TEXT    "\r"              ; finish up password with a Return
  43.     WHEN    1 "≥"             ; skip graphics sign-on screen
  44.       TEXT "^C"
  45.     WHEN    1 "ENTER"         ; press Enter when asked
  46.       TEXT "\r"
  47.     WHEN    1 "Bull"          ; skip bulletins screen
  48.       TEXT "^C"
  49.     END
  50.  
  51. ; and the automatic logoff on hangup
  52. Cleanup MULTI
  53.     TEXT        "gyn\r"                  ; tell Opus we're leaving
  54.     WAITFOR     20 "thanks for calling"  ; wait for signoff message
  55.      END                     ; before hanging up
  56.  
  57. #include "avatar"
  58. ; add default bindings which have not been overridden
  59. #include "rbcomm"
  60.